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1 . SCOPE 


This document provides the description and subroutine documentation of 
the data order processor, ORDHDT. As part of the LANDSAT IMAGERY VERIFICATION 
AND EXTRACTION SYSTEM (LIVES), ORDHDT creates a computer compatible tape 
containing the AgRISTARS requirements for LANDSAT data to be ordered from 
Goddard Space Flight Center. 
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2. APPLICABLE DOCUMENTS 


1. "As-Built" Design Specification of the LANDSAT IMAGERY VERIFICATION AND 
EXTRACTION SYSTEM, JSC-14634 (LEC-12904), December 1979. 

2. TIRF 79-0034, LANDSAT Data Prde.- Processor, October 1979. 

3. Action Document 76-662-08, HDT/LIVES, dated November 9, 1979. 


3. SYSTEM DESCRIPTION 


The LIVES master data base (LMDB) contains information on LANDSAT scenes 
needed by the Earth Observations Division at NASA's Johnson Space Center. 
This ini .filiation is used to order scenes from the Image Processing Facility 
of Goddard Space Flight Center. The needed scenes are furnished on high 
density tapes. 

The order for LANDSAT scene data is sent to GSFC via a card image tape. 
ORDHDT creates the card image data order tape. 

The data order tape consists of two record types, a header record and a set 
of path/row span records. Each record is in an 80 character, card image, 
EBCDIC format. A separate tape is generated for each LANDSAT. The format 
of the data order tape is shown in Appendix A, 

Geographic areas are ordered in each record by path number, the starting and 
ending row number of a sequential set of rows, and start and stop dates for 
which acquisitions are required. Several LMDB Areas of Interest may be 
covered by a single path/row span order. If the start and end dates of 
different Areas of Interest are overlapping or are "essentially contiguous" 
(the end of one 'Area of Interest is within 18 days of the start of another), 
the orders will be combined in one record. If the end date of a request in 
the LMDB is prior to the date the data order tape is created, that request 
will not be included. 

3.1 HARDWARE DESCRIPTION 

The hardware requirements include the following peripherals in addition to 
the PDP 11/45: 

a. One tape unit 

b. Operator's console 

c. One disk unit 

d. Line Printer 
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3.2 PROCESSOR DESCRIPTION 


The data order processor, ORDHDT, performs a series of operations in creat- 
ing the data order tape. A batch input stream (BIS) file is used to 
sequence these operations as follows: 

a. LIMS is used to extract the necessary data from the LMDB and create file 
ORDHDT. DTI. 

b. Program ORDFIX edits file ORDHDT. DTI and creates file ORDHDT. SOR. 

c. The system sort processor is used to sort file ORDHDT. SOR and create 
file ORDHDT. RP1. 

d. Program ORDHDT processes the data in file ORDHDT. RP1 to create the data 
order tape and to print the data order report. 

The data flow for the data order processor is shown in Figure 3-1. 


Two batch input stream files are used by the data order processor: 
0RDHDT2.BIS is used to order LANDSAT 2 data. 

0RDHDT3.BIS is used to order LANDSAT 3 data. 

The two files are shown here: 

ORDHDT2. BIS 

$ JOB/NAME =0RDHDT2/ LI MIT=99/ACC0UNT=333 33/MCR 
$MESSAGE START OF ORDHDT BATCH JOB 
$MCR PIP UNITS. SAT=UN ITS. 0R2/ UP 
$MCR LIM 

$MCR PIP UNITS. SAT=UNITS. STD/UP 
$RUN ORDFIX. TSK 

$SORT/SI Z : 23 ORDHDT. SOR/INP ORDHDT. RP1 /OUT ORDHDT. SPC/SPE 
$RUN ORDHDT. TSK 

$MESSAGE END OF ORDHDT BATCH JOB 
$E0J 
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Figure 3-1 - Data flow of data order processor 








0RDHDT3 .BIS 


$ JOB/N AME-OROH DT3/ LI MI T-99/ ACCOUNT-333 33/MCR 
$MESSAGE START OF ORDHDT BATCH JOB 
$MCR PIP UNITS, SAT*UNITS.OR3/UP 
$MCR LIM 

$MCR PIP UNITS. SAT=UNITS. STD/UP 
$RUN ORDFIX.TSK 

$SORT/SIZ:23 ORDHDT. SOR/INP ORDHDT. RP1/OUT ORDHDT. SPC/SPE 
$RUN ORDHDT. TSK 

$MESSAGE END OFORDHDT BATCH JOB $EOJ 
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3.2.1 LI MS 


The LIM.S function In the data order process Is to extract the necessary data 
from the LMDB and create the file 0RDHDT.DT1, The file Is described here by 
character positions! 


Character Position Content 


1-2 

3-6 

7-12 

13 

14-17 

18 

19-22 

23 


Blank 

Area of Interest 
Path /row 
Blank 

Start date 
Blank 
Stop date 
LANDSAT No, 


The last record in the file is an end-of-data record: 


Character Position Content 


1 

2 

3-9 

10-12 


Blank 

Asterisk(*) 

Blank 

999 Pseudo path number to sort last 


LIMS uses one of two sets of UNITS and COMMAND files in performing its 
function. One set is for LANDSAT 2 data, the other for LANDSAT3. The names 
of these files are shown here: 
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LANDSAT 2 


UNITS , 0R2 
0RDHDT.CM2 


LANDSAT 3 

UNITS. 0R3 
ORDHDT. CM3 


Listings of these files follow: 

UNITS. 0R2 

710111213 
7DB0 :ORDHDT . MSI 
1 OLP : 

11 DBO: ORDHDT.DAT 
1 2DB0 : ORDHDT . DTI 
13DB0: ORDHDT. CM2 


ORDHDT. CM2 

BEDBO:LMDB 

ZZ1 

SKRCTYPE1 
SKPWRSRP 
C01-2 
DE 2 

SKSWRSRP 

C01-3 

SN2,SATSEL.GT.99 

SN4,SATSEL,GT.99 

JT5.AA 

RP5,CS0,BY : SATSEL ,BY : USERI D,BY : AOI ID, ' \AOIID,PWRSRP, ' ' ,ACQSRT , 1 'ACQSTP, 
1 2' 1 
LAAA 
JT6.BB 

RP6,CSC,BY :SATSEL,BY :USERID,BY : AOI ID, 1 ' , AOI I D, SWRS RP , ' ' ACQSRT, 1 '.ACOSTP, 
' 2*1 
LABB 

HDl * 999 

EN 

UNITS. 0R3 

710111213 
7DB0: ORDHDT. MSI 
10LP: 

11 DBO rORDHDT.DAT 
12DB0: ORDHDT. DTI 
13DB0: ORDHDT. CM3 
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0RDHDT.CM3 

BEDBO :LMDB 
ZZ1 

SKRCTYPE1 
SKPWRSRP 
C01-2 
DE 2 

SKSWRSRP 
CO 1-3 

SN2 .SATSEL- ( 100*( SATSEL/lOO) , .GT.9 
SN4 , SATSE L- ( 1 00*( SATSEL/lOO ) . , GT . 9 
JT5,AA 

RP5,CSO,BY :SA.TSEL,BY ;USERID,BY:AOIID, ' ' AOIID.PWRSRP, ' ' ,ACQSRT,' ',ACOSTP, 
*3' 1 ' ‘ 

LAAA 

JT6,BB 

RP6.CS0.BY :SATEL , BY .’USERID, BY :A0IID,' ' ,AOIID,SWRSPP, ' ' .ACQSRT, 1 '.ACOSTP, 
'3' I ’ ' 

LABB 
HD1 * 

EN 


999 


3.2.2 PROGRAM ORDFIX 

o Input 

File ORDHDT. DTI 
Current date 

o Output 
File ORDHDT. SO R 

o Description 

The purpose of ORDFIX is to arrange the input file by reversing the position 
of ROW/PATH and prefixing the year with a 1 7 ' or an '8' so the file can be 
sorted. Records with stop dates previous to current date are excluded. 

o Listing 

The listing of ORDFIX is presented in Appendix C. 
o Restriction 

Start or stop dates beyond 1988 will not be handled correctly. 


3.2.3 SORT 


o Input 
File ORDHDT.SOR 

o Output 
File 0RDHDT.RP1 

o Description 

The system sort is used to sort the input file and to exclude records whose 
path number is zero. 

The Specification File, ORDHDT.SPC, used in the sort is listed here; 

HSORTR 16 X 23 

0 C 7 9EQC000 

1 

FNC 7 22 

FDC 1 23 
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3.2.4 MODULE ORDHDT 


This module constitutes the primary section of the data order processor. 
The module includes one main program, OR'J'PT, two subroutines, ORDINT and 
ORDWRT, and one INCLUDE file, ORDCOM.F'Hm Two utility routines are used: 
JULIAN - convert day, month year to Julian day; ATEB - convert ASCII to 
EBCDIC. 

o Input 
File ORDHDT. RP1 

o Output 

Data order tape (See Appendix A) 

Data order report (See Appendix B) 


o Common Block 

One Common Block is used by the three routines 
/ORD/ 


STORE - Data hold array to hold data to be output to tape. 

REPT - Data hold array to hold data for print report 

PATHRO - Path/ row 

SSDAY - Hold array for s tart/s top windows 
SITE - Area of interest or site number. 

OUTBUF - Tape output buffer. 

START - Acquisition start date (YDDD). 

STOP - Acquisition stop date (YDDD). 

NREC - Current number of entries in array store. 

TREC - Tape record counter. 

PCOUNT - Current number of entries in array REPT. 

DAYS - Array of cummulative days per year since 1 Jan 1 979 • 

LAST - Pointer for array REPT to a corresponding row in array STORE. 

LSAT - LANDSAT number. 
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o Hold arrays 

Three hold arrays are used to hold input record data that may be combined 
with other record data: These arrays are described below: 

STORE (N,l) Start row 
STORE (N,2) Stop row 
STORE (N,3) Start day 
STORE (N,4) Stop day 

SSDAY (N,l) Start day - 18 converted to number of days from 1 Jan 1979, 

SSDAY (N,2) Stop day + 18, also converted. 

REPT (M,l,l) Area of Interest or site number 

REPT ( M, 2, 1 ) Path number 

REPT (M,3,l) Row number 

REPT (M,4,l ) Start day 

REPT (M,5,l ) Stop day 

REPT (M,6,l) Corresponding row number in array STORE or 'N', 
o Module description 

When the first record is read, the three hold arrays are initialized. As 
each succeeding record is read, an attempt is made to combine it with a 
stored record. If it cannot be combined, it is added to the hold arrays 
if possible. If the row number (PATH/ROW) of the Area of Interest is not 
the same or contiguous to one already in the hold arrays, the record in 
array STORE will be output to tape and the corresponding records in array 
REPT will be output to the printer. The hold arrays contain no gaps. Thus 
the record number output will be filled by pushing up each succeeding data 
row in each hold array. 

If the hold arrays are emptied such as when the current record read indicates 
a change of PATH, the current record is used to reinitialize the hold arrays 
as if it were the first record. 

When the end-of-data record is read, the hold arrays are emptied by outputting 
to tape and printer, an EOF mark is written on the tape and the program is 
terminated. 
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3. 2. 4.1 Program ORDHDT 

This is the main program of Module ORDHDT. 

o Input/Output 

Communication with other routines is maintained through Common Block /ORD/ 
described earlier. 

o Description 

ORDHDT is the driver routine. The input data file is read and the data is 
stored in the hold arrays. An attempt is made to combine each input record 
with one of the entries stored in array STORE. If a new ROW is the same or 
contiguous to one stored, the new record will be combined if the START or 
STOP dates fall within a stored START minus 18 days or a stored STOP plus 
18 days. Since the rows in the data file have been sorted in ascending 
order, any new row that is not the same or contiguous to a row in array 
STORE signals that that entry in array STORE cannot be combined with any future 
records and therefore should be output to tape. 

o Flow 

The flow diagram of program ORDHDT is presented in Figure 3-2. 
o Listing 

The listing of ORDHDT is presented in Appendix C. 
o Restriction 

Because of preset data in array DAYS: 

Area of Interest START date must fall between 1 Jan 1979 and 31 Dec 1988. 

Area of Interest STOP date must fall between current date and 31 Dec 1988. 

















3. 2. 4. 2 Subroutine ORDINT 

The purpose of this subroutine is to make the first entry in hold arrays 
'STORE', 'REPT', and ' SSDAY ' . This occurs when the first record is read 
and each time the hold arrays are emptied by outputting the records in the 
hold arrays to tape. 

Also, the path number is entered in the output buffer and converted from ASCII 
to EBCDIC. 

o Listing 

The listing of ORDINT is presented in Appendix C. 
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3. 2. 4. 3 Subroutine ORDWRT 

The purpose of this subroutine is to write the data order tape and print 
the data order report. 

0 Input/output 

Communication between routines is handled through Common Block /ORD/ and 
through calling arguments: SUBROUTINE ORDWRT (I FLAG, INDEX) 

1 FLAG - If = 1, write header record. 

If = 2, write data record. 

If = 3, write EOF on tape. 

INDEX - Pointer to row number in array STORE, 
o Description 

The first time this routine is called, it prints the heading for the data 
order report and the header record on the data order tape. On subsequent 
calls when I FLAG is set to 2, the row of data in array STORE selected by 
pointer INDEX is loaded in the output buffer and written on taoe. The data 
in the report array REPT pertaining to that tape record is output to the 
printer. Any gaps left in the hold arrays by outputting data are filled 
by pushing up the stack in each array. If ORDWRT is called with T FLAG set 
to 3, an EOF mark is written on the output tape and the tape is rewound. 

o Flow 

The flow diagram of subroutine ORDWRT is presented in Figure 3-3. 
o Listing 

The listing of ORDWRT is presented in Appendix C. 

3. 2. 4. 4 ORDCOM.FTN 

This file is used as an INCLUDE file and is listed in Appendix C. 
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4. OPERATIONS 


The section presents the information necessary to run the data order 
processor, ORDHDT. 

4.1 OPERATOR'S GUID E 

This paragraph describes the system hardware configuration and the run setup 
for the data order processor. 

4.1.1 HARDWARE CONFIGURATION 

a. PDP 11/45 Support processor. 

b. One tape drive. 

c. Line printer. 

d. Console. 


4.1.2 PROGRAM EXECUTION 

A request to run the data order processor must specify the LANDSAT number 
for which data is desired: LANDSAT 2 or LANDSAT 3, If both are requested, 

a separate tape must be created for each LANDSAT number. A LIVES Master 
Data Base (LMDB) must reside in the UIC from which the processor is to be 
run. 

The following files must also reside in the user's UIC: 

0RDHDT2.BIS 
UNITS.OR2 
ORDHDT. CM2 
ORDFIX.TSK 
ORDHDT. TSK 
0RDHDT3.BIS 
UNITS.OR3 
ORDHDT. CM3 


The following items should be performed: 

1. Mount output tape on MTO, foreign. 

2. Sign-on user's UIC (Normally [333,33]). 
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3. If the files listed above du not reside In user's UIC, enter; 

MCR>PIP @[333,33]UPD0RD (CR). 

4. For LANDSAT 2 data, enter; MCR>BAT 0RDHDT2 .BIS$ . 

5. For LANDSAT 3 data, enter; MCR>BAT 0PDHDT3,BIS$. 

6. Check for console message: END OF ORDHDT BATCH JOB, 

7. Label tape according to user Instructions and save. 

8. Three data files are created during each run and should be deleted; 
ORDHDT. DTI, ORDHDT. SOR, ORDHDT. RP1. 

9. After the data processor has been run, the following PIP commands will 
delete the proper files including those listed in item 8: 

PIP ORDHDT.*;*/ DE 

PIP ORDHDT2.BIS ;*/DE 

PIP ORDHDT3.BIS;*/DE 

PIP UNITS. OR2;*/DE 

PIP UNITS . 0R3 ; */ DE 

PIP ORDFI X. TSK ;*/DE 
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APPENDIX A 


A.l Data order tape format (EBCDIC) 


Record 1 - 

ID Card Record 


Card Col, 

Number 

Format 

Description 

1 - 9 

JSCFCPFSR 

JSC identification 

10 

2/3 

Spacecraft & ID 

2 * LANDSAT 2, 3 *> LANDSAT 3 

11 

b 

Blank 

12 - 19 

ydddhhmm 

Date of generation 

o 

CO 

o 

b 

Blank 


Record 2-N. Path/Row Spans (length = 80 characters) 


Card Col, 


Number 

Format 

1 - 9 

JSCFCPFSR 

10 - 13 

yddd 

14 

K 

15 

0(zero) 

16 

.(period) 

17 

B 

18 

b 

19 - 20 

10 

21 

b 

22 “ 24 

001-251 

25 

b 

26 - 28 

001-248 

29 

b 

30 - 32 

001-248 

33 

b 

35 - 36 

20 

37 

F 


Description 

JSC identification 
Date of generation 
Special for JSC 
OCC defined fixed value 

H >i ft it 

It II I* H 

Blank 

Value for JSC 
Blank 

WRS path number 
Blank 

WRS starting row number 
Blank 

WRS ending row number 
Blank 

OCC user priority code number 
OCC defined fixed value 
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Record 2-N. Path/Row Spans (length = 80 characters) 


Card Col . 
Number 

Format 

Description 

38 

A 

A = weather category 3 (71-1002) 

39 

b 

Blank 

40 

* 

. = No RBV requested 

41 

D 

D = MSS daylight requested 

42 

. 

OCC defined fixed value 

43-44 

10 

Minimum sun angle 

45 

■ 

MSS gain . = low 

46 

c 

MSS mode C = compressed 

47 

b 

Blank 

48 - 51 

yddd 

On-time year and day of year 

52 

b 

Blank 

53 - 56 

yddd 

Off-time year and day of year 

57 - 80 

b 

Blank 
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TMFfiF t »* 1J sJTr# L r ’ AV , r, ' M . S ' M 


OPF f f |jf I Tsl , Mk'F s • fft.iHf T , JT | l , ' VFLs "-U ' ) 
OP m f i|Ki 1 T s ?» K aw* - t pfti>«OT , So* • • ' Vt- M s 1 k ■ 1 ) 

CALL ] 0 A T E ( 1' AY. 1Y« 1 

J 0 A Y c Ji IL T 4m f I 0, J.I 4 AY, [YW ) 
z 1 0 u 0 

I day x typ * , ’ h ’ ♦ jhay 


20 CONTIMIF 

PtATfl Star, 5 1 T F » I'll*, PaT.i, Y j , idt U“! 

UO Fg bm ATMY,Ai, hU, pai, S a t . Ml, A l } 

I F ( FTAP ,Ff}' i po TO I'..-' 

yi ( n = '*' 
y?( n * ' a • 

IF ( Ytf?) . Fn. ' g ' 1 VI (1) P '7' 

TF( Y? ( ? 1 ,Eo, i9i ) <10 TQ it' 

DECODE ( 5, 6n, Y? ) A' DAY 
60 FORMAT! 15 ) 

no ?o T«?,o 

TF(Yirl) .£0' ' ') YI (T) = 'O' 

IF ( Y?(T) , F ' '1 Y?(!) s ' " ' 

60 CONTINUE 

IF f NpAY , L T' IrUy ) GO TO 20 

100 continue 

WWITF(?,<J0) STAR, SJU, PATH, Yi, Y 2 , L&AT 

IF (STAR ,NE, '**1 l»0 in ?■) 


Program ORDFIX 
C-2 


STOP 
E NO 






FORTRAN I V • P U,! S VOe>-*;i 09113101 3 F-F t *J- A'J PA(Jk 1 

ORCMDT.FTN /TW,B| OC“S/^n 

c 

c M A I r PPrtfiWAM - 'nPHuL-l 

C 

C TMF PiiKpOSr n F This PI'.Ol.WAM |6 in C v • f. I . t 1 <H "'ATa *'h * ■■‘Na Ti> 

f j hj ypc llVeS | PAT A y A life A*-!' CPfcATt A CAP*.) PAut. l-^’f 

C in Tuf PATH /K"‘ c'J"h 1“ A T'l»i^ S > 1 • 

C 


000 t 

ooo? * 
0005 * 

r 


T A' C, 1 1 ipF ' nRi)rN M .FTh ' 
IMPLICIT I * TF G'r u f*-n 

PAMAmfTFP IEmsSo* LfM?*10" 



* 

OoC'4 * 

* 

L 

• 

IMFRptf*^ StPA'F < 1 IN* u 1 » KF- P 1 TUT *»2f n, 2,' 
* STTF# ApATg, AhC"*, ST APT# & T n»> 



* 

0005 * 

L 

c 


IMTIRFPa? SePAyCLfcA ,21 # r 'AYS(0) 



* 

0006 * 


BYTE PXTupnftf), Y * 2 f u 1 , v.‘ 

uTt?.'E r*>;i , u & j t 

A 

0007 * 

* 

r 

• 

Cuphon / n pr > / SinR f , pfpt, paimpj, 

, START, S t r R , I'iPKi TPfcl, p fl I j n. T # 

a S', a Y , 
0 A t b . 

SllL, JJ'hvR 
l, A o T , L S A | 

4 

0008 * 

4 

4 

* 

4 

c 

c 

• 

• 

• 

F Ql i T V A L fe. N’CF J ApATh, P a T n P !,i 1 
, 4 f A H ( 1 1* # P ATHftO ( 5 ) 1 

, YPI, STAH1 1 

, ; YP STOP 1 



0009 

0010 
ooi t 

c 


lNTfPF»4U P A t H 
BYTE STAP 

TATA pATHpo / Pa' ' /# TRFC / *.> / 



0012 

r. 

f' 

• 

DATA rAYS / ,'dS, Ml, 1'j9h, HP), 1«2o, HP’ 1 ?, 25h< r , 

2o22, 3297 / 

0013 

c 

r 


PPFNf HNl T r|7 NAME* • PPPHliT ,RH ) t , T Y R t = ' 

uU/i ) 



L 

c 

c 

r 


P&AD FTPST PAT. PFCphD 



o- ip 

o o 
o o 

20 

REACH, 20) S?AH, SITE, fPATHkUfl),Ts?,7) 
FORMATf jV.ApA/I^Al, lK,Afl4l»,Aq,Al) 

, ST APT 

, ST PH, uSAT 

0016 
0017 
00 1 B 

L 

f* 


PATW* APATM 
IFLAR * 1 

CALL. nR0*RT(TFLAC, 01 



0019 

t 

r 

50 

CONTINUE 




c 

c 

r 

INITIALIZE HDlPlNj; AwkAYS 



0020 


CALL OROTNT 



0021 

l 

r 

60 

CONTINUE 



0022 

0023 

w 

80 

CONTINUE 

REACT 1 ,20, EN^sHO STAR, SITt, f P A T H f? D ( I ) 

,1=2, 71 

, ST API, STOP 


c 




Program 0RDHDT 


C-3 


09 1 j ?:ni 


2NEI rh-M!> 


page «; 


FORTRAN Iv-PLUS V( f ?«5l 


0RDHD1 

.FT 

N 

/tpjbi nrKs/^D 

00? 4 



IE (STAR ,F 0, ' * • ) Up TO «5 

0025 



IF ( P A T H ,ER. APaThj Gf’ TU l iH‘ 

00?6 



PATH s APATH 

00?T 



C-0 TO 9g 

002S 


*5 

CONTINUE 

0029 



EOF . 1 

0030 

r 

C 

c 

90 

COM I M If 


CLEAR All. Hf'l D T Nfi ARpAyb 

0031 


1FI Ap * ? 

003? 



T K I.. 1 E * B 1 

003 3 


05 

COM INI if 

0034 



CALI, nPO 0 pT(?MAU, IH'flO 

0035 

C 

c 


IF ( F-rFC ,Gl' <• ) l.fi TO 95 

0036 


I F c pnE ) 5f'7 50. th 0 

0037 

C 

1 0 0 

COM INI JF 

0036 



P C. U U N T S PCOi’iM ♦ 1 

0039 



PtPTfPCOi'NT,V* ) 1 - SITE 

0040 



w ept TPcnuf.'T , n * apath 

0041 



RE PT f pCO"NT # j, I ) a ARUW 

004? 



RfcPTfPCOUNT,;,, 1 ) = START 

0043 

r 


PERT f PCOUnT • S < 1 ) a STOP 

0044 

l 

r 

1 10 

contimuf 

0045 

L. 


DECODE ( 3, 1S03, Akow) I«CM 

0046 

r 

t oos 

FORMATS T 3 ) 

0047 

V 

120 

CONTINUE 


004P 

0049 

0050 

0051 
005? 


0051 

0054 

0055 

0056 

0057 
0059 
0059 


p 




c 

c 

c 

c 


c 

c 

c 

c 


LUQP THRU HOLDING ARpAyb [l> SP t IF CURREM KtUTRO C4* bfc 
COMF1 N£ Q with PPEwIPi.jS HECURDS, 

NPOU s NRfC 

oo ?/jo isi#n;q^ 

IN DEV * I 

L * STORE ri# 51 ♦ I 

IF f TROW ,LF r Ll GU TO 140 

CURRENT ppw N U m R £ o N13T SAME OP adJaClM. 

TIME TO OUTPUT T Apt PfcCUPO. 

CAU, oROWRTf 2» InUEX ) 

IF C NRFC 1 5n i 50, j ?0 

140 CONTINUE 

Yl a yF 1 f 1 7 1 4fl 

Y2 b V92T 1 1 l 48 

DECODE f 3, ISO?, YNlf?n ISTAkt 

DECODE ( 3, 1 o 0 5 , YH2f2J) ISTOP 

CONVERT start and S TqP TIMES to number np DAYS E^UM l JAN 

Program 


/9 

ORDHDT 

:-4 


•Jflimnt 


?7-Ffcb -8" 


P A 1. 1- 1 


F ORTKAN IV-PLUS V0?-51 
ORDH0T.E T H /Tk|P! OC«S''>*'p 


0060 

V 


IF (VI ,E n, 9 ^ or. Tl< 1(50 

0061 



isnfl « vi ♦ 7 

006? 



T s r a p r s tsta&t ♦ uays(isu m ) 

0063 


1 to Cl 

CONTINUE 

0060 



I F ( V? ,FQ, ; ) f.O TO 1 «0 

0065 



T SUP s V? + 7 

0066 



I STOP - JS T Or A OAVSfXS'Jp) 

0067 


160 

comimif 

0066 



IMTST4RT ,Gr. $SD*V<1 »i?)) «'■' T» ?J 1 

0069 



IMIST^P .1. X f S^OATfT#!)' GU TO ?■*') 

0070 



IF(SSD4vn«l7 ,L k . (1ST ART- lb)) G*. T n 

0071 



SSlUVfT.I) * IST»WI - 10 

007? 



STURF ( T ♦ M s ST A-T 

0073 


POQ 

COM] Ml IF 

0070 



IF (SSnAy ( i , ,nF. (!STO»MMJ i*0 Id f’e 1 ' 1 

00*5 



SSUA V ( T ,?) c t ft r h P A 1 *• 

0076 



5 TURF ( T ,4) * S T iiF' 

0077 


??0 

COM I Ml if 

0070 



IF(T9nn .Lfe. STnWfH,?)) on to ?Si> 

0079 



STC'RFfl,?) * J H 0* 

0060 


?30 

COM IMUF 

00«1 



PF.PTfPC.nt'MT,;, 1 ) s RFPTdNdt *,h, 1) 

00«? 



GO Tn ft u 

0063 

c 

c 

r 

POO 

C 0^ T 1 MI.IF 


MO 

FIT . Ann CII»Pr' lT Pp i. DPI' TO HULn f "•'G ARRAY 

0004 



MP6C * wpfc 1 ! 

0085 



LAST 1 LAST ; 1 

0086 



STUPE (MREC» 1 7 * IPU* 

0067 



STORFfMMEC#?i * I«U'a 

0060 



ST urf (Mrec»3i * Start 

0069 



STORE' fNREf.#4l» K ST UP 

0090 



pept (pcoukit,;, 1 j * last 

0091 



SSDA V ( MREC » 1 1 B TS T ART - tb 

009? 



SSPAVfMRFr,?, = ISTHP f lb 

0093 



GO TO «o 

0094 

L 

r 

?60 

CONTINUE 

0095 

V 


IF LAG * 3 

0096 

c 


CALL 0»O w 9T(tFLaG, INDEX] 

0097 


WRITE(6,?0O) 

0096 


?80 

FOPMATf////' FMn OF REPORT' ) 

0099 



STOP 

0100 



END 


Program OP.DHDT 


C-5 


e ■ j.. . 


if n i ? n I o 




PAUL 1 


FORTRAN TV. PLUS 
OfilMM.pr. 


V-R] 

/ T w I PL nc^S/'*'© 


OOO J 


000.? 
0003 
00 0 0 

OOOS 


c 

r 

f 

r 

r 


r 


0006 

0007 

ooqs 


c 

r 

c 


0 0 0 R 


r 


* c 

c 

0010 
001 1 


St'HRnuTp F non I ►-•T 


TPF p[|ppr^p nF tPJJj IS T P islu^fc rH t t'MnY 

1 a.- T n rP'RriRAev a''*faYS 'SIuKF', 'BERT 1 . A no 'SSCAyi, 

j hr l i *nP »r<Rr r<- 1 / T-. * 

IMPLICIT TNTFPrw fA-n 

PAPAMMtk | f » »*»-># LM Psl 1 

!»■ 1CR^w*.'j SfiRF f 1. 1* , ■* 1 , PFP I 6,2) 

, * & T T f , ApAJ M, A ^ Q vs , !;TAFT, S I r 'U 

IfT'pf.FR*? Sci A v f I M',2) . “A 'loti) 

«yip RaThP"(6), ybUR), fPpMl. i,u 1 u • * F- ( Ov 1 , L&^f 

C pM^nij / fiRf' / S f ‘IP t i L f p T , M A 7 hk i , ij S M 4 T » 0 J ! t » y ‘.J I P jf 

. , START, S T l • P , NSEC, TPM , PCfU'M, uAYS, LAST, US •» 1 


t HM VU i **T f 

A 

A p A T h , 

F A r w w u ) 

• * 

A 

aP H* , 

PATuM. fb) ) 

• i 

A 

v*;i, 

SI A A' T ) 

• * 

A 

YL2, 

S T f i P ) 

NP£C s 1 

last * mr 

* 

1 



0011 

0032 


LOAD F ] L $ T r> A T a Hp T T‘- aM'AYS 'STit*F' A ' f‘ « b b L- A Y » , 


0012 


r'ErnPFfi, luo.i, Ri 1 wff.'f %1 

0013 

1 0 0 3 

FORMATA 131 

0014 


S T i j p F f 1 ,?) S STri-’E (1 , M 

0015 


STUBFf 1 ,3) = STa^T 

0016 


STUPEf 1 ,0) s STrP 

0017 


rEtnpf. ( 3, IcUi, Y*ir2)) 

ooie 


rrconef 3, to 03 , 

00 1 R 


S S R' A Y ( 1,1) = SvSPiA Y ( 1 , | ) - 

0020 


SSI) A V f 1 ,?) S SSpA Y { 1,2) + 

0021 


YU r YP I ( 1 ) - «»■ 

0022 

r 

V ?. S y P? f 1 ) . On 

0023 

V 

IFtYl „& n , R) On u- fly 

002<i 


I SUB s Y 1 A 1 

0025 


S S D A Y f 1 , 1 ) - S S I s A y ( 1,1) f 

0026 

ao 

CONTINUE 

0027 


I E { YJ? , E 0 , R > On TU 6 if 

0028 


ISUB * Y2 ♦ 1 

002R 


SSUAYf 1 ,?) s SSnAyj ) ,?) ♦ 

00.30 

oO 

c 

continuf 


I 8 


STORE ENTRIES J.n eM’pR'T aPPay, 
PCUliNT * 1 

REPT f PCOUmT, i,|) s SHE 




Subroutine ORDINT 

C-6 


>Pl?1 .* I n 


■> O » ■ A * • £ u 


PA fit C 


roRTPAf T V -PL us vn^.ci) 
OPOIM.PT* /TWjPtr'CXS^^B 


003! 
OOStf 
005*5 
0 0 36 
0037 


00 3* 
U 03 P 
0 o " 0 
00<M 

004? 
004 ? 


Pfcpr f prn"fiT , p, i > s apath 

PtPTfpCC.il*, T, -J, n S AP.»-' 

PtPT f PCntu t, /}, 1 1 s $TAPt 
PEKTfPCni'>.T,e;, n e ST'*'P 
PtPT f PCniJf T , Ai I ) t L AoT 
C 

c LUtr pa n t* data cnrpijf f tv . 

c 

fl'TFUF (??) S PAT*'f'U f P) 

OllTPliF ( ? } 1 5 PATHwufU 

0 1 1 1 Pup f ?4 i c PAt h pi‘{P) 

CALL A TE. p f niiTPcA r«f?i . n.«TP’;M?t’), i ) 

C 

PfcT mq> 
f Nl- 


Subroutine ORDINT 


C-7 


FCIRTS4N Jv-PLI.'S Vo?.«?| If'i3?l?b 'A*-y,. P*G'. s 

ORDwRI.F T'v /TP|BLPCMS/^p 


000 1 


000? 

0003 

0000 

0005 


C 

C 

C 

c 

c 


c 


000b 

0007 


C 

C 


SUMPPuTJnf Oiff'KPTt (FLAG, I’.IU v 1 

T Hfe PiiRRPjSF pp T M Ii SUHMH'T I '‘•fc IS 1 i'i| (M) r 1 i‘»ut 7 >* »- b 

T(, PI JTF, A** o^rSf R ( l<F flUF S T ) Fu* PATm/Pi-v (, «» *** i ' * I t u' b >/ * A ><i«;, 

TPP DATA nY* A M jl APPAYS tM'Wf', d ,i, '.jStAt' j * 

REAPPAPGfn wuiMi A huK up >;aTA ro i,i'in-r 1 -j UP'L, 

JvCI Hf'E * f)PPr , F r in • 

P'PLrCTT IMTFG F R f u ~ i ) 

PAWAMpTfR LFm*H», LP<?=l>>i’ 

JATflSpP*u StOP-p fUt K » PM'f (lEN?,p,2) 

, , SJTF, APATw# A* v ^. oTAPT, b ' If' 

IMFRfR*? S«PAyfLfc‘ t’AYbfO 

BYTE P A TMpi.fbi , YPl(P)» YKgfi4)f i.uf' jM ) t ua-I 


0006 


00 1 0 
0011 
001? 

0013 

0014 

00 1 s 

0016 

0017 

Oofs 


c 

c 

c 

c 


CCM'm / n« r ‘ / Sinpfc, PFP1, 
, , STapt, St^p, nm, TPM # 


PA Inks,., bbUAY* ajU, v.u/v»F 
PGni'M * wavs, uAST, 


0009 * 

0 9 t 

A P A T h , 

P A ThPw ) 

* 

A P p Vt j 

PA TMROf *S J 

* 

• 9 t 

V« I , 

S T A u 1 1 

* 

%9 f 

VR?, 

STOP ) 


IMTEBFR*0 P|iF(?'M 
1 P'TFGF P * ? I b P 1 ' f b ) i Sfg) 

PYTf H F r«nF f 6<1) , UMfcXfV), 

EOHIVALF^r.Kt PlitHUP, pup ) 


T l‘ A t/ f b) 


p °°n a 


* » 


t » 
• * 
• i 


DATA M T / * **t * / 

DATA jATfM / ”1000 /, IR-vfJD / ”?Pu(, / 

DATA jwLP / ” 0 il *' 0 /# X a P ijF / "3t»Of! / 

DATA hFHPIiF ) ' ? i , i !a ' , ' C ' , ' P ' * ' f ' , ' P i , ' P ' , ' o ' # '* 1 

1 1 * " a o , b o * " I o o / 

DATA nl'TPllP /' J t I tis • , 'C ' , 'P' , <c ' t 'p ' # 'F ' » »b ' t ' * ' 

ai * i t , i n t , • o i , ( , i t i h i , i i , M ' , ' n i 

13*' • , ' A», >?*, »()' , 'P ' , ' A i , ' J' , * 

•O'# '/ 


0019 


DATA 7fpn / o / 

00?0 

l 

IF t TFLAG ,Gt, 1 ) GO rn ?ou 

0021 


CALL ASMUP'f ?# M T, ?tRn ) 

00?? 


CALL wTQIof T ATc M # ?f 1»» b 1 

00?3 


CALL P'TRJOf rRP’NP, ?» 1*. S ) 


L 

c 

r 

WRITE TAPE HEADEp »FC0 IiD, 

00?4 

V 

HFDBUF f 1 0 j * LSaT 

00?5 


CALL iDATFt mO. DaY, YP ) 


Subroutine 0RDWRT 
C-8 


FqRTRaf 
ORD wPf , 

002ft 
0027 
0026 
00*9 
Uj30 
005 1 

,0052 

0055 

0030 

0035 

0036 

0037 

0038 

0039 
0000 
OOOJ 
00<*2 
OuO.t 

oo«« 

0005 


0006 

0007 

0006 

00«9 

0050 

0051 

0052 

0053 


0050 

0055 

0056 

0057 

0058 

0059 


00*0 

0061 

0062 


I v-PLi*« Vl-2-5! I -j 1 3? I ?6 cN-«AR-«r. P«Ot * 

FT* /TRlPtriC^S^'B 

lYW * 1 M!M V c t H 1 
f^cnriff i, i (\ i i , Ntop' rn?)) ly* 
tool rCP*'4Tf n ) 

.m*v » Ji'i i,ay, yrj 

r'Cnntf 5, !n(*5, HtnPUFMi)) j'-ay 
l of 3 FO»*’ATf n ) 

C 

TF f hfrhmF ( 1 3 , ,r<i t i i) Mf'yi f f i .4) s 
IF (wFnPtif r t ,F* , * I ) »r> f It-flu) z »*)• 

r 

f'UTPMF MO) s Nf r; ^t> (|2) 

M'THHF Ml) * k, F *)MiF (lJ) 

Ol’TRl'E (1?) S mF r, 6 uF (10) 

mjT«HF M3) * HEr- H ''F ( 15) 

C 

r*-Ll. MTF(nArHf) 

r A| l TtHF (TI mF Y) 

HtCRUPMh) = TP'Fxil) 

PFOPlIFf ) 7) * Tl^F/l?) 
g EnPi!F ( 1 8 ) * 1 I v F v ( 0 ) 

REOPUFM") « T t **t Y i 5) 

C 

* R 1 1 f ( 6 > I ft 2 u ) I S 6 T # ^ATfY, Tl^Ex 

1 020 FORMAT M M 1 # //# C*t 1 Ar.k I S TAPS ■'LuUf-ST E p> 1,A''*).j 4I * # A J # * vAU 1 // 

TAPE fjE Vp P A t F r* (IK. 9A 1 , ■ AT l#©Al//// 

, # 1 7# 1 PF,r n Pn U IJ m U t 0 Ek u <o TAPfc»,7A,'A UF 1 1 ( )Xi 'Fl M/«U* ' 
i*7X# * S T A P T ' * 6 <7 ( 5 T f, P ' / ) 

C 

CALL ATfc»(HFhHUF, HI-nHi'F, 201 
CALL P5TAf)«( I p P*S HEuPuF) 

IRRM(2) * 8 o 

CALL wTRTnf t*IR, d, 1 , , 5, IM»‘ 5 ) 

I F* ( S ( 1 ) ,FO. 1 ) (>(• TO 60 
STAY ■ $(1) - 256 
F-F?irF( 6 , lna;>) STAT,TRt’C 

10OO FORMAT*/* ** UfR T T 6- tPPOP 0‘j U'JTPUT TAPE **i / 

,, ' STATUS = ',15, ' TAPF - MtCuRU »'U, s i,Jb//) 

C 

STOP ' ** OpOHnT ABORTED ** ' 

c 

60 CONTINUE 
C 

CALL ATEBfOiJrBUF, UlJTbUE, «0 ) 

PO TO 500 
C 

200 CONTINIIF 
C 

tf f im a a ,nr f 2 ) uo tu 36<i 
c 
c 

C LOAD data INTO O'JtRUT BUFFER, 

c 

c 

FNtOfJfC 3 , 1 0 o3 * 0i|IMUF(26)) S I (HE (J f.Lfc X ) 

EMCOnFC 3 , t 0 a 3 » 0 LI I 8 lJ F’ ( 3 0 ) ) S I nrft C I MUt X # <2 } 

HUMii) * Store UivnF-',3) Subroutine ORDWRT 

C-9 


FORTKA*' IV-F'lUS V t »?-'S| * Um ***•«*» 

0RD»»1.KT* /TW|Sl HCkS/'p 


M60t A 


0063 

C 


IF (fHiyniiF (?6^ ,F". i ') ^*' (<>r>) r '(' 

0060 



1 F ( nurPUF f ?7 1 ,t 1, ' ') 0“7»ivM 27) s 'o' 

0065 



lFfC"T»UF n*M ,Fi». ' ') DUT H.ir f Ji 7 ) : 

0 066 

r 


TF ( ninr6u p ( 3 1 > ,F f 7, • 'I “I'l T**<F ( 3 1 ) * ‘ t * 

1)067 

l 


UU pp,, ttyP.Kl 

0066 



Cl'TMHFfn « dUTd'F (| A ) ) 

006<» 


?av 

Cl»M 1 M ' F 

0070 

w 


run 6 iif f <?9i * ' • 

0071 



n|IT6HF(52) « ' I 

007? 



Fl<F Mill * STnM ( I ^ Uf V # a J 

0071 



CALL ATfcHf OmT^I r t r-’lt«':F l2o)» 7 ) 

0070 



CAL' 4 Tfc ^ f r«*> T *«.p f jci 1 # 9 ) 

0075 

C 


TPK * TftFC ; 1 

0076 

C 


CALL r;FTAnP( f *" ft M.'F ) 

0077 



IRRHf?) I Ay 

0076 



f; A L L *TUTnt t L '#♦ 6 * If' 4 ' - J 

0079 



TF C 8(1) . M5 ' 1 ’ UO r< ’ *'*" 

ooeo 



STAT * S M ) l 

00? ! 

** 


►RITFfb, InOth -StAT, I^C 

00 62 

l 

f 


5 TUP • ** ^pf.hni Af<n«TFO ** * 

0083 

V 

r 

2<jn 

C on T INI If 

oosa 

V, 


NPtiu , wwer, ; i 

0085 



NPFC s N»FC : 1 

0086 



4RITF (6#i050i T ft C 

0067 


1050 

F0RNAT(/I PtfOpM * | 1 5 ) 

0066 



6 ■ 0 

0069 



00 290 t * I.RCnUM 

0090 

r 


TF(PEPT(T,6»?) ,6’fe. T»K> (it If ?6ii 
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